home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VCM / VCM.MDB / VcmComponentContainer / 06_Cabinet / Layout.Dsr < prev    next >
Encoding:
Text File  |  1998-05-18  |  1.5 KB  |  48 lines
  1. VERSION 5.00
  2. Begin {90290CCD-F27D-11D0-8031-00C04FB6C701} Layout 
  3.    ClientHeight    =   4770
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   5985
  7.    _ExtentX        =   10557
  8.    _ExtentY        =   8414
  9.    SourceFile      =   "C:\Program Files\Microsoft Visual Studio\MSDN98\98VS\1033\Samples\VB98\DHShowMe\Layout.htm"
  10.    BuildFile       =   "c:\dhtml\Layout.htm"
  11.    BuildMode       =   0
  12.    TypeLibCookie   =   133
  13.    AsyncLoad       =   0   'False
  14.    id              =   "DHTMLPage5"
  15.    ShowBorder      =   -1  'True
  16.    ShowDetail      =   -1  'True
  17.    AbsPos          =   0   'False
  18. End
  19. Attribute VB_Name = "Layout"
  20. Attribute VB_GlobalNameSpace = False
  21. Attribute VB_Creatable = True
  22. Attribute VB_PredeclaredId = False
  23. Attribute VB_Exposed = True
  24. Private Sub txtBorder_onkeyup()
  25. 'On keyup, use the style object to access the changeme
  26. 'element's borderwidth property, and set it equal to the
  27. 'value in the txtBorder field.
  28.     changeme.Style.BorderWidth = txtBorder.Value
  29.  
  30. End Sub
  31.  
  32. Private Sub txtMargin_onkeyup()
  33. 'On keyup, use the style object to access the changeme
  34. 'element's margin property, and set it equal to the
  35. 'value in the txtMargin field.
  36.     changeme.Style.margin = txtMargin.Value
  37. End Sub
  38.  
  39. Private Sub txtPadding_onkeyup()
  40. 'On keyup, use the style object to access the changeme
  41. 'element's padding property, and set it equal to the
  42. 'value in the txtPadding field.
  43.     changeme.Style.padding = txtPadding.Value
  44.     
  45. End Sub
  46.  
  47.  
  48.